home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / E / E-Mail.cpt / E-Mail / card_10283.txt < prev    next >
Text File  |  1988-04-23  |  3KB  |  179 lines
  1. -- card: 10283 from stack: in
  2. -- bmap block id: 5836
  3. -- flags: 0000
  4. -- background id: 2644
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on closefield
  8.   set numberformat to "0.00"
  9.   get line 1 of card field rates
  10.   put (it/90) into rate1
  11.   get line 2 of card field rates
  12.   put (it/90) into rate2
  13.   repeat with i = 1 to 6
  14.     get line i of card field pages
  15.     put the value of (it*rate1) into line i of card field offpeak
  16.     put the value of (it*rate2) into line i of card field peak
  17.   end repeat
  18. end closefield
  19.  
  20. on closecard
  21.   set numberformat to "0.00"
  22.   put 14 into line 1 of card field rates
  23.   put 16 into line 2 of card field rates
  24.   get line 1 of card field rates
  25.   put (it/90) into rate1
  26.   get line 2 of card field rates
  27.   put (it/90) into rate2
  28.   repeat with i = 1 to 6
  29.     get line i of card field pages
  30.     put the value of (it*rate1) into line i of card field offpeak
  31.     put the value of (it*rate2) into line i of card field peak
  32.   end repeat
  33. end closecard
  34.  
  35.  
  36.  
  37. -- part 1 (button)
  38. -- low flags: 00
  39. -- high flags: 0000
  40. -- rect: left=343 top=295 right=318 bottom=372
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 1014 / 1014
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: 
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   visual effect wipe down
  52.   go to previous card
  53. end mouseUp
  54.  
  55.  
  56.  
  57. -- part 3 (field)
  58. -- low flags: 01
  59. -- high flags: 0000
  60. -- rect: left=141 top=170 right=268 bottom=184
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 0
  64. -- font id: 3
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: pages
  69.  
  70.  
  71. -- part 4 (field)
  72. -- low flags: 00
  73. -- high flags: 0000
  74. -- rect: left=22 top=123 right=160 bottom=53
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 0
  78. -- font id: 3
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: rates
  83.  
  84.  
  85. -- part 5 (field)
  86. -- low flags: 00
  87. -- high flags: 0000
  88. -- rect: left=234 top=170 right=278 bottom=284
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 0
  92. -- font id: 3
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: peak
  97.  
  98.  
  99. -- part 6 (field)
  100. -- low flags: 00
  101. -- high flags: 0000
  102. -- rect: left=325 top=170 right=276 bottom=366
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 0 / 0
  105. -- text alignment: 0
  106. -- font id: 3
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: offpeak
  111.  
  112.  
  113. -- part contents for background part 9
  114. ----- text -----
  115. COSTS OF SENDING MESSAGES VIA ABA/NET‚Ñ¢
  116.       WHEN USING A 1200 BAUD MODEM
  117.  
  118. NUMBER OF  COST DURING  COST DURING
  119. PAGES¬†¬†¬†¬†        PEAK¬† HOURS  OFF¬† HOUR   
  120.                       
  121.                         
  122.                         
  123.                         
  124.                       
  125.                       
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134. -- part contents for background part 7
  135. ----- text -----
  136. How Much Will This Cost Me? (cont.)
  137.  
  138. -- part contents for card part 3
  139. ----- text -----
  140.    1
  141.    2
  142.    5
  143.  10
  144.  20
  145.  50
  146.  
  147. -- part contents for card part 4
  148. ----- text -----
  149. 14
  150. 16
  151.  
  152.  
  153. 16
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163. -- part contents for card part 6
  164. ----- text -----
  165. 0.16
  166. 0.31
  167. 0.78
  168. 1.56
  169. 3.11
  170. 7.78
  171.  
  172. -- part contents for card part 5
  173. ----- text -----
  174. 0.18
  175. 0.36
  176. 0.89
  177. 1.78
  178. 3.56
  179. 8.89